FINISH
/CLEAR
!
/FILN,E353
/TITLE,O-RING         !趨
RAD=6.4               !Oλ뾶
TH=1.28               !Oλں
/PREP7                !ǰ
ET,1,PLANE182         !ƽ浥Ԫ
ET,2,CONTA172         !άӴԪ
ET,3,TARGE169         !ӴĿ굥Ԫ
R,1                   !ʵ
MP,EX,1,2.148E+5      !ģ
MP,NUXY,1,0.3         !ɱ	      
MP,EX,2,210E6         !趨Ĳ2
MP,NUXY,2,0.3         !2Ĳɱ
TB,NLISO,1            !趨 
TBTEMP,0  
TBDATA,1,730,4000,300,800    

!Բģ
CSYS,1                !
K,1,RAD-TH            !ڱڹؼ
K,2,RAD               !ڹؼ
KGEN,36,1,2,1,,10     !ÿ10ȼؼ
*DO,J,1,69,2          !趨ѭ
 A,J,J+1,J+3,J+2      !߳
*ENDDO                !ѭ
A,71,72,2,1           !ʣ߶ΣOλĴ
LESIZE,ALL,,,4        !߶Ϊ񻮷׼
ALLSEL
AMESH,ALL             !Oλ
NUMMRG,ALL            !±ŸԪر
NUMCMP,ALL            !ѹԪ

!·ģ
CSYS,0                !ѿϵ
RECTNG,-5*RAD,5*RAD,RAD,5*RAD     !Ϸ
RECTNG,-5*RAD,5*RAD,-RAD,-5*RAD   !·
!趨߶λֱ
LSEL,S,LINE,,109,115,6
LESIZE,ALL,,,26,-0.2
LSEL,S,LINE,,111,113,2
LESIZE,ALL,,,10
LSEL,S,LINE,,110,116,6
LESIZE,ALL,,,6,2
LSEL,S,LINE,,112,114,2
LESIZE,ALL,,,6,0.5
MAT,2                  !2
ASEL,S,AREA,,37,38,1,1 !ѡ·
MSHKEY,1               !ӳ񻮷
AMESH,ALL              !ֵԪ

!OλϷ֮Ӵ
LSEL,S,LINE,,109       !ѡϷԲӴ߶
TYPE,3                 !Ϊ3Ŀ굥Ԫ
REAL,1                 !ָʵ1
NSLL,S,1               !ѡ߶ϵĽڵ
ESLN,S,0               !ѡڽڵϵĵԪ
ESURF,ALL              !Ŀ굥Ԫ

ALLSEL
CSYS,1                 !
LSEL,S,LOC,Y,-225,-315 !ѡԲϷӴ߶
LSEL,R,LOC,X,RAD
LSEL,U,LINE,,109
TYPE,2                 !Ϊ2ĽӴԪ
NSLL,S,1               !ѡ߶ϵĽڵ
ESLN,S,0               !ѡڽڵϵĵԪ
ESURF,ALL              !ӴԪ


!Oλ·֮Ӵ
ET,4,CONTA172         !άӴԪ
ET,5,TARGE169         !άĿ굥Ԫ
R,2                   !趨ʵ2
ALLSEL
LSEL,S,LINE,,115      !ѡ·ԲӴ߶
TYPE,5                !Ϊ5Ŀ굥Ԫ
REAL,2                !ָʵ2
NSLL,S,1              !ѡ߶ϵĽڵ
ESLN,S,0              !ѡڽڵϵĵԪ
ESURF,ALL             !Ŀ굥Ԫ

ALLSEL
CSYS,1                !ϵ
LSEL,S,LOC,Y,225,315  !ѡԲ·Ӵ߶
LSEL,R,LOC,X,RAD
LSEL,U,LINE,,115
TYPE,4                !Ϊ4ĽӴԪ
NSLL,S,1              !ѡ߶ϵĽڵ
ESLN,S,0              !ѡڽڵϵĵԪ
ESURF,ALL             !ӴԪ

!
/SOLU                 !
CSYS,1                !ϵ
NSEL,S,LOC,Y,270      !ѡO·Ӵ
NSEL,R,LOC,X,RAD
D,ALL,UY              !̶Yλ

CSYS,0                !ѿϵ
NSEL,S,LOC,Y,-5*RAD   !ѡ·׶нڵ
D,ALL,ALL             !̶ȫλ
NSEL,S,LOC,Y,5*RAD    !ѡϷнڵ
D,ALL,UX              !̶Xλ

OUTRES,ALL,ALL        !趨ȫ
TIME,1                !趨ʱ䲽
NSUBST,200            !趨Ӳ
NLGEOM,ON             !򿪴ο
LNSRCH,ON             !
NSEL,S,LOC,Y,5*RAD    !ѡϷȫڵ
D,ALL,UY,-0.24*RAD    !ʩ12%ѹλ
ALLSEL
SOLVE                 !
*GET,DEF1,NODE,166,U,Y!ȡ166ڵYλƣΪDEF1
NSEL,S,LOC,Y,5*RAD    !ѡϷȫڵ
D,ALL,UY,0            !λƻظ
ALLSEL
SOLVE                 !
*GET,DEF2,NODE,166,U,Y!ȡ166ڵYλ,ΪDEF2

DISP1=(DEF2-DEF1)     !ûصDISP1
FINISH

/POST1
*GET,SS,ACTIVE, ,SOLU,NCMSS        !ȡغɲ
*GET,LS,ACTIVE, ,SOLU,NCMLS        !ȡÿһغɲµӲ
*DIM,LOADS,ARRAY,SS,LS             !غ
*DIM,DISPS,ARRAY,SS,LS             !λ
*CFOPEN,SPRING,DAT                 !SPRINGļ
*DO,IN,1,LS                        !ѭ,ȡÿһӲ½Ϣ
*DO,JN,1,SS 
SET,IN,JN                          !ȡINغɲµJNӲϢ 
CSYS,1                             !ѡȡ·OӴ
LSEL,S,LOC,Y,225,315
LSEL,R,LOC,X,RAD
LSEL,U,LINE,,115
NSLL,S,1
FSUM,0,ALL                          !غ֮       
*GET,LOADS(JN,IN),FSUM, , ITEM, FY  !ȡYغֵLOADS
ALLSEL
*GET,DISPS(JN,IN),NODE,166,U,Y      !ȡ166ŽڵλƣDISPS
LOADS(JN,IN)=LOADS(JN,IN)           !鸳ֵ
DISPS(JN,IN)=DISPS(JN,IN)
*ENDDO  
*ENDDO 
!дļ
*DO,KN,1,LS
*VWRITE, LOADS(1,KN),DISPS(1,KN),
(1X,'    ',31F16.9,'    ',31F16.9)
*ENDDO  
*DO,KN,2,LS
*VWRITE, LOADS(2,KN),DISPS(2,KN),
(1X,'    ',31F16.9,'    ',31F16.9)
*ENDDO 